005900                                                                  00005900
005910*$%                                                               00005910
006000******************************************************************00006000
006100*                                                                *00006100
006200*         I N P U T - O U T P U T   S E C T I O N                *00006200
006300*                                                                *00006300
006400******************************************************************00006400
006500 INPUT-OUTPUT SECTION.                                            00006500
006600                                                                  00006600
006610*$%                                                               00006610
006700 FILE-CONTROL.                                                    00006700
006800******************************************************************00006800
006900*         FICHERO DE ENTRADA 1                                   *00006900
007000******************************************************************00007000
007100     SELECT ZV0001R                                               00007100
007200         ASSIGN TO ZV0001R                                        00007200
007300         ORGANIZATION IS SEQUENTIAL                               00007300
007400         ACCESS MODE IS SEQUENTIAL                                00007400
007500         FILE STATUS IS W-FILE-STATUS-ZV0001R.                    00007500

008600******************************************************************00008600
008700*         FICHERO DE SALIDA 1                                   * 00008700
008800******************************************************************00008800
008900     SELECT ZV0002W                                               00008900
009000         ASSIGN TO ZV0002W                                        00009000
009100         ORGANIZATION IS SEQUENTIAL                               00009100
009200         ACCESS MODE IS SEQUENTIAL                                00009200
009300         FILE STATUS IS W-FILE-STATUS-ZV0002W.                    00009300
009310*%$ CONTROL DE ESPECIFICACIONES DE LECTURA Y ESCRITURA DE FICHERO 00009310
009400                                                                  00009400
009410*%$ SECCION DE ENTRADA Y SALIDA                                   00009410
